home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1995 July & August / cd No4 joystick No62.iso / mac / pc / EMULATOR / PC370 / DEMO / IGC1013.ALC < prev    next >
Text File  |  1987-06-01  |  1KB  |  66 lines
  1.     TITLE 'IGC1013 - PC/370 MVS ABEND FORMATED DUMP TYPE 4 SVC'
  2. * PGMID.   IGC1013.ALC (LINKED AS IGC1013.MOD)
  3. * AUTHOR.  DON HIGGINS.
  4. * DATE.    05/31/87
  5. * REMARKS. PC/370 MVS SHELL ABEND TYPE 4 SVC MODULE DYNAMICALLY
  6. *          LOADED AND EXECUTED BY TYPE 1 ABEND SVC ROUTINE IF
  7. *          PATH TO MODULE AND SUFFICIENT MEMORY IS AVAILABLE.
  8. *          IGC013 TYPE 1 ROUTINE JUST PRINTS ABEND CODE AND PSW.
  9. *          THIS MODULE FORMATS THE FOLLOWING:
  10. *
  11. *            1.  GENERAL REGISTERS
  12. *
  13. IGC1013  CSECT
  14.     USING *,R6
  15.     STM   R0,R15,SAVREGS
  16.     LA    R3,SAVREGS
  17.     LA    R4,DREGS
  18.     LA    R5,8  FORMAT FIRST 8
  19. FMTR07   EQU   *
  20.     BAL   R14,FMTREG
  21.     LA    R3,4(R3)
  22.     LA    R4,9(R4)
  23.     BCT   R5,FMTR07
  24.     LA    R2,BLKLINE
  25.     SVC   WTO
  26.     LA    R2,DLINE
  27.     SVC   WTO
  28.     LA    R4,DREGS
  29.     LA    R5,8  FORMAT LAST 8
  30. FMTR8F   EQU   *
  31.     BAL   R14,FMTREG
  32.     LA    R3,4(R3)
  33.     LA    R4,9(R4)
  34.     BCT   R5,FMTR8F
  35.     LA    R2,DLINE
  36.     SVC   WTO
  37.     LA    R2,BLKLINE
  38.     SVC   WTO
  39.     L     R14,SAVREGS+4*14
  40.     SR    R15,R15
  41.     BR    R14
  42. FMTREG   EQU   *
  43.     UNPK  0(9,R4),0(5,R3)
  44.     TR    0(8,R4),HEXTAB-240
  45.     MVI   8(R4),C' '
  46.     BR    R14
  47. *
  48. * DATA
  49. *
  50. R0       EQU   0
  51. R1       EQU   1
  52. R2       EQU   2
  53. R3       EQU   3
  54. R4       EQU   4
  55. R5       EQU   5
  56. R6       EQU   6
  57. R14      EQU   14
  58. R15      EQU   15
  59. WTO      EQU   209
  60. BLKLINE  DC    C' $'
  61. DLINE    DC    C' R0-R7 '
  62. DREGS    DC    8CL9' ',C'$'
  63. SAVREGS  DC    16F'0'
  64. HEXTAB   DC    C'0123456789ABCDEF'
  65.     END
  66.